home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _spatience / spatience / scripts / 21_card next >
Encoding:
Text File  |  1992-07-03  |  1.2 KB  |  75 lines
  1. |
  2. |  Rules for 21 card patience
  3. |  Written by J.Horsnell
  4. |
  5. |  The name '21 card' is because there are
  6. |  twenty one face down cards on the table.
  7. |
  8. |  The stacks in this game need cards in
  9. |  decending order and of the same suit.
  10. |  The pack is turned one card at a time.
  11. |  Only kings are allowed to be placed into
  12. |  empty stacks.  The foundations are built
  13. |  from the ace upwards.
  14. |
  15. SCRIPT_TYPE 1
  16. |
  17. BEGIN "21 card patience"
  18.  
  19.   FLAGS ClickFly AnimateFly
  20.   WIDTH 10 * CW + 14
  21.   HEIGHT 800
  22.   ZeroToWin 52 - CARDSIN$1
  23.  
  24.   | 4 foundations on a 2x2 grid
  25.   FOR stack = 0 TO 1
  26.     FOUNDATION
  27.       X 8 * CW + 12
  28.       Y 16 + CH * stack
  29.       ID 1
  30.     END
  31.   END
  32.   FOR stack = 0 TO 1
  33.     FOUNDATION
  34.       X 7 * CW + 12 + stack * CW * 2
  35.       Y 16 + 50 
  36.       ID 1
  37.     END
  38.   END
  39.  
  40.   | 7 stacks
  41.   FOR stack = 0 to 6
  42.     STACK
  43.       X stack * CW + 12
  44.       y 16
  45.       FIRST 13
  46.       MAX 19
  47.       JoinOffset -1
  48.       DEAL stack + 1 , stack + 1
  49.       FLAGS ClickFly JoinSS__
  50.     END
  51.   END
  52.  
  53.   | The pack button
  54.   STACK
  55.     X 7 * CW + 12 + CW / 2
  56.     Y 16 + 2 * CH
  57.     MAX 0
  58.     DEAL 24
  59.     DEALTO 2,1
  60.     DRAGUPTO 0
  61.     FLAGS PaintBack
  62.   END
  63.  
  64.   | The pack store
  65.   STACK
  66.     X 8 * CW + 12 + CW / 2
  67.     Y 16 + 2 * CH
  68.     MAX 0
  69.     DRAGUPTO 1
  70.     FLAGS PaintLast
  71.     ID 2
  72.   END
  73.  
  74. END
  75.